home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / desktop / frxtrsm4.zip / FRM / TCHEBYCH.FRM < prev   
Text File  |  1992-02-10  |  8KB  |  472 lines
  1. ;========================================================================
  2. ;Date:    Mon, 10 Feb 1992 13:10:12 EST
  3. ;From: "Bruno"
  4. ;Subject: MORE .par and .frm
  5. ;X-Topic: Entry #3185 of LISTS.FRAC-L
  6. ;To: "LISTS.FRAC-L.3185"
  7. ;
  8. ;Posted on 10 Feb 1992 at 12:24:22 by BrownVM Mailer (103837)
  9. ;
  10. ;MORE .par and .frm
  11. ;
  12. ;Date:         Mon, 10 Feb 1992 08:18:36 GMT
  13. ;Reply-To:     'FRACTAL' discussion list <FRAC-L@GITVM1.BITNET>
  14. ;From:         Rob den Braasem <rdb@KTIBV.UUCP>
  15. ;
  16. ;Here are a group of files with formulas derived from a book of Roger Stevens
  17. ;
  18. ;First the formmats file and then the par file.
  19. ;
  20. ;
  21. ;--------------------------------------------------------------------
  22. ;{
  23. ;  ADVANCE FRACTAL PROGRAMMING IN C
  24. ;  by Roger Stevens.
  25. ;
  26. ;  I changed them in a Julia and Mandelbrot type fractal generatoren.
  27. ;  The Graphical Gnome (rdb@ktibv)
  28. ;
  29. ;}
  30. ;
  31. ;{
  32. ;   JULIA TYPE FRACTALS
  33. ;}
  34. ;
  35.  
  36. J_TchebychevT2 {
  37.    c = pixel, z = P1:
  38.    z = c*(2*z*z-1),
  39.    |z|<100
  40. }
  41.  
  42. J_TchebychevT3 {   ;
  43.    c = pixel, z = P1:
  44.    z = c*z*(4*z*z-3),
  45.    |z|<100
  46. }
  47.  
  48. J_TchebychevT4 {
  49.    c = pixel, z = P1:
  50.    z = c*(z*z*(8*z*z+8)+1),
  51.    |z|<100
  52. }
  53.  
  54. J_TchebychevT5 {    ;
  55.    c = pixel, z = P1:
  56.    z = c*(z*(z*z*(16*z*z-20)+5)),
  57.    |z|<100
  58. }
  59.  
  60. J_TchebychevT6 {
  61.    c = pixel, z = P1:
  62.    z = c*(z*z*(z*z*(32*z*z-48)+18)-1),
  63.    |z|<100
  64. }
  65.  
  66. J_TchebychevT7 {     ;
  67.    c = pixel, z = P1:
  68.    z = c*z*(z*z*(z*z*(64*z*z-112)+56)-7),
  69.    |z|<100
  70. }
  71.  
  72. J_TchebychevC2 {
  73.    c = pixel, z = P1:
  74.    z = c*(z*z-2),
  75.    |z|<100
  76. }
  77.  
  78. J_TchebychevC3 {   ;
  79.    c = pixel, z = P1:
  80.    z = c*z*(z*z-3),
  81.    |z|<100
  82. }
  83.  
  84. J_TchebychevC4 {
  85.    c = pixel, z = P1:
  86.    z = c*(z*z*(z*z-4)+2),
  87.    |z|<100
  88. }
  89.  
  90. J_TchebychevC5 {    ;
  91.    c = pixel, z = P1:
  92.    z = c*z*(z*z*(z*z-5)+5),
  93.    |z|<100
  94. }
  95.  
  96. J_TchebychevC6 {
  97.    c = pixel, z = P1:
  98.    z = c*(z*z*(z*z*(z*z-6)+9)-2),
  99.    |z|<100
  100. }
  101.  
  102. J_TchebychevC7 {     ;
  103.    c = pixel, z = P1:
  104.    z = c*z*(z*z*(z*z*(z*z-7)+14)-7),
  105.    |z|<100
  106. }
  107.  
  108.  
  109. J_TchebychevU2 {
  110.    c = pixel, z = P1:
  111.    z = c*(4*z*z-1),
  112.    |z|<100
  113. }
  114.  
  115. J_TchebychevU3 {   ;
  116.    c = pixel, z = P1:
  117.    z = c*z*(8*z*z-4),
  118.    |z|<100
  119. }
  120.  
  121. J_TchebychevU4 {
  122.    c = pixel, z = P1:
  123.    z = c*(z*z*(16*z*z-12)+1),
  124.    |z|<100
  125. }
  126.  
  127. J_TchebychevU5 {    ;
  128.    c = pixel, z = P1:
  129.    z = c*z*(z*z*(32*z*z-32)+6),
  130.    |z|<100
  131. }
  132.  
  133. J_TchebychevU6 {
  134.    c = pixel, z = P1:
  135.    z = c*(z*z*(z*z*(64*z*z-80)+24)-1),
  136.    |z|<100
  137. }
  138.  
  139. J_TchebychevU7 {     ;
  140.    c = pixel, z = P1:
  141.    z = c*z*(z*z*(z*z*(128*z*z-192)+80)-8),
  142.    |z|<100
  143. }
  144.  
  145. J_TchebychevS2 {
  146.    c = pixel, z = P1:
  147.    z = c*(z*z-1),
  148.    |z|<100
  149. }
  150.  
  151. J_TchebychevS3 {   ;
  152.    c = pixel, z = P1:
  153.    z = c*z*(z*z-2),
  154.    |z|<100
  155. }
  156.  
  157. J_TchebychevS4 {
  158.    c = pixel, z = P1:
  159.    z = c*(z*z*(z*z-3)+1),
  160.    |z|<100
  161. }
  162.  
  163. J_TchebychevS5 {    ;
  164.    c = pixel, z = P1:
  165.    z = c*z*(z*z*(z*z-4)+3),
  166.    |z|<100
  167. }
  168.  
  169. J_TchebychevS6 {
  170.    c = pixel, z = P1:
  171.    z = c*(z*z*(z*z*(z*z-5)+6)-1),
  172.    |z|<100
  173. }
  174.  
  175. J_TchebychevS7 {     ;
  176.    c = pixel, z = P1:
  177.    z = c*z*(z*z*(z*z*(z*z-6)+10)-4),
  178.    |z|<100
  179. }
  180.  
  181. J_Laguerre2 {
  182.    c = pixel, z = P1:
  183.    z = (z*(z - 4) +2 ) / 2 + c,
  184.    |z| < 100
  185.  
  186. }
  187.  
  188. J_Laguerre3 {
  189.    c = pixel, z = P1:
  190.    z = (z*(z*(-z + 9) -18) + 6 ) / 6 + c,
  191.    |z| < 100
  192. }
  193.  
  194. J_Laguerre4 {
  195.    c = pixel, z = P1:
  196.    z = (z * ( z * ( z * ( z - 16)+ 72) - 96)+ 24 ) / 24 + c,
  197.    |z| < 100
  198. }
  199.  
  200. J_Laguerre5 {
  201.    c = pixel, z = P1:
  202.    z = (z * ( z * ( z * ( z * (-z +25) -200) +600) -600) + 120 ) / 120 + c,
  203.    |z| < 100
  204. }
  205.  
  206. J_Laguerre6 {
  207.    c = pixel, z = P1:
  208.    z = (z * ( z * ( z * ( z*(z*(z -36) +450) -2400) + 5400)-4320) + 720 ) / 720
  209. + c,
  210.    |z| < 100
  211. }
  212.  
  213. J_Lagandre2 {
  214.    c = pixel, z = P1:
  215.    z = (3 * z*z - 1) / 2 + c
  216.    |z| < 100
  217. }
  218.  
  219. J_Lagandre3 {
  220.    c = pixel, z = P1:
  221.    z = z * (5 * z*z - 3) / 2 + c
  222.    |z| < 100
  223. }
  224.  
  225. J_Lagandre4 {
  226.    c = pixel, z = P1:
  227.    z = (z*z*(35 * z*z - 30) + 3) / 8 + c
  228.    |z| < 100
  229. }
  230.  
  231. J_Lagandre5 {
  232.    c = pixel, z = P1:
  233.    z = z* (z*z*(63 * z*z - 70) + 15 ) / 8 + c
  234.    |z| < 100
  235. }
  236.  
  237. J_Lagandre6 {
  238.    c = pixel, z = P1:
  239.    z = (z*z*(z*z*(231 * z*z - 315)  + 105 ) - 5) / 16 + c
  240.    |z| < 100
  241. }
  242.  
  243. J_Lagandre7 {
  244.    c = pixel, z = P1:
  245.    z = z* (z*z*(z*z*(429 * z*z - 693) + 315) - 35 ) / 16 + c
  246.    |z| < 100
  247. }
  248.  
  249. {
  250.  MANDELBROT TYPE FRACTALS
  251. }
  252.  
  253. M_TchebychevT2 {
  254.    c = P1, z = Pixel:
  255.    z = c*(2*z*z-1),
  256.    |z|<100
  257. }
  258.  
  259. M_TchebychevT3 {   ;
  260.    c = P1, z = Pixel:
  261.    z = c*z*(4*z*z-3),
  262.    |z|<100
  263. }
  264.  
  265. M_TchebychevT4 {
  266.    c = P1, z = Pixel:
  267.    z = c*(z*z*(8*z*z+8)+1),
  268.    |z|<100
  269. }
  270.  
  271. M_TchebychevT5 {    ;
  272.    c = P1, z = Pixel:
  273.    z = c*(z*(z*z*(16*z*z-20)+5)),
  274.    |z|<100
  275. }
  276.  
  277. M_TchebychevT6 {
  278.    c = P1, z = Pixel:
  279.    z = c*(z*z*(z*z*(32*z*z-48)+18)-1),
  280.    |z|<100
  281. }
  282.  
  283. M_TchebychevT7 {     ;
  284.    c = P1, z = Pixel:
  285.    z = c*z*(z*z*(z*z*(64*z*z-112)+56)-7),
  286.    |z|<100
  287. }
  288.  
  289. M_TchebychevC2 {
  290.    c = P1, z = Pixel:
  291.    z = c*(z*z-2),
  292.    |z|<100
  293. }
  294.  
  295. M_TchebychevC3 {   ;
  296.    c = P1, z = Pixel:
  297.    z = c*z*(z*z-3),
  298.    |z|<100
  299. }
  300.  
  301. M_TchebychevC4 {
  302.    c = P1, z = Pixel:
  303.    z = c*(z*z*(z*z-4)+2),
  304.    |z|<100
  305. }
  306.  
  307. M_TchebychevC5 {    ;
  308.    c = P1, z = Pixel:
  309.    z = c*z*(z*z*(z*z-5)+5),
  310.    |z|<100
  311. }
  312.  
  313. M_TchebychevC6 {
  314.    c = P1, z = Pixel:
  315.    z = c*(z*z*(z*z*(z*z-6)+9)-2),
  316.    |z|<100
  317. }
  318.  
  319. M_TchebychevC7 {     ;
  320.    c = P1, z = Pixel:
  321.    z = c*z*(z*z*(z*z*(z*z-7)+14)-7),
  322.    |z|<100
  323. }
  324.  
  325.  
  326. M_TchebychevU2 {
  327.    c = P1, z = Pixel:
  328.    z = c*(4*z*z-1),
  329.    |z|<100
  330. }
  331.  
  332. M_TchebychevU3 {   ;
  333.    c = P1, z = Pixel:
  334.    z = c*z*(8*z*z-4),
  335.    |z|<100
  336. }
  337.  
  338. M_TchebychevU4 {
  339.    c = P1, z = Pixel:
  340.    z = c*(z*z*(16*z*z-12)+1),
  341.    |z|<100
  342. }
  343.  
  344. M_TchebychevU5 {    ;
  345.    c = P1, z = Pixel:
  346.    z = c*z*(z*z*(32*z*z-32)+6),
  347.    |z|<100
  348. }
  349.  
  350. M_TchebychevU6 {
  351.    c = P1, z = Pixel:
  352.    z = c*(z*z*(z*z*(64*z*z-80)+24)-1),
  353.    |z|<100
  354. }
  355.  
  356. M_TchebychevU7 {     ;
  357.    c = P1, z = Pixel:
  358.    z = c*z*(z*z*(z*z*(128*z*z-192)+80)-8),
  359.    |z|<100
  360. }
  361.  
  362. M_TchebychevS2 {
  363.    c = P1, z = Pixel:
  364.    z = c*(z*z-1),
  365.    |z|<100
  366. }
  367.  
  368. M_TchebychevS3 {   ;
  369.    c = P1, z = Pixel:
  370.    z = c*z*(z*z-2),
  371.    |z|<100
  372. }
  373.  
  374. M_TchebychevS4 {
  375.    c = P1, z = Pixel:
  376.    z = c*(z*z*(z*z-3)+1),
  377.    |z|<100
  378. }
  379.  
  380. M_TchebychevS5 {    ;
  381.    c = P1, z = Pixel:
  382.    z = c*z*(z*z*(z*z-4)+3),
  383.    |z|<100
  384. }
  385.  
  386. M_TchebychevS6 {
  387.    c = P1, z = Pixel:
  388.    z = c*(z*z*(z*z*(z*z-5)+6)-1),
  389.    |z|<100
  390. }
  391.  
  392. M_TchebychevS7 {     ;
  393.    c = P1, z = Pixel:
  394.    z = c*z*(z*z*(z*z*(z*z-6)+10)-4),
  395.    |z|<100
  396. }
  397.  
  398. M_Laguerre2 {
  399.    c = P1, z = Pixel:
  400.    z = (z*(z - 4) +2 ) / 2 + c,
  401.    |z| < 100
  402.  
  403. }
  404.  
  405. M_Laguerre3 {
  406.    c = P1, z = Pixel:
  407.    z = (z*(z*(-z + 9) -18) + 6 ) / 6 + c,
  408.    |z| < 100
  409. }
  410.  
  411. M_Laguerre4 {
  412.    c = P1, z = Pixel:
  413.    z = (z * ( z * ( z * ( z - 16)+ 72) - 96)+ 24 ) / 24 + c,
  414.    |z| < 100
  415. }
  416.  
  417. M_Laguerre5 {
  418.    c = P1, z = Pixel:
  419.    z = (z * ( z * ( z * ( z * (-z +25) -200) +600) -600) + 120 ) / 120 + c,
  420.    |z| < 100
  421. }
  422.  
  423. M_Laguerre6 {
  424.    c = P1, z = Pixel:
  425.    z = (z * ( z * ( z * ( z*(z*(z -36) +450) -2400) + 5400)-4320) + 720 ) / 720
  426. + c,
  427.    |z| < 100
  428. }
  429.  
  430. M_Lagandre2 {
  431.    c = P1, z = Pixel:
  432.    z = (3 * z*z - 1) / 2 + c
  433.    |z| < 100
  434. }
  435.  
  436. M_Lagandre3 {
  437.    c = P1, z = Pixel:
  438.    z = z * (5 * z*z - 3) / 2 + c
  439.    |z| < 100
  440. }
  441.  
  442. M_Lagandre4 {
  443.    c = P1, z = Pixel:
  444.    z = (z*z*(35 * z*z - 30) + 3) / 8 + c
  445.    |z| < 100
  446. }
  447.  
  448. M_Lagandre5 {
  449.    c = P1, z = Pixel:
  450.    z = z* (z*z*(63 * z*z - 70) + 15 ) / 8 + c
  451.    |z| < 100
  452. }
  453.  
  454. M_Lagandre6 {
  455.    c = P1, z = Pixel:
  456.    z = (z*z*(z*z*(231 * z*z - 315)  + 105 ) - 5) / 16 + c
  457.    |z| < 100
  458. }
  459.  
  460. M_Lagandre7 {
  461.    c = P1, z = Pixel:
  462.    z = z* (z*z*(z*z*(429 * z*z - 693) + 315) - 35 ) / 16 + c
  463.    |z| < 100
  464. }
  465.  
  466. test{
  467.   z=pixel,c=p1:
  468.    c = P1, z = Pixel:
  469.    z = z* (z*z*(z*z*(429 * z*z - 693) + 315) - 35 ) / (16 * (z+c))
  470.    |z| < 100
  471. }
  472.